home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / form printer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  951b  |  28 lines
  1. 10 poke53281,1:poke53280,1
  2. 20 print"[147]        [211][213][194][205][201][211][211][201][207][206] [198][207][210][205] [208][210][201][206][212][197][210]"
  3. 30 print"     [208] - [208]rint [211]ubmission [198]orm"
  4. 40 print"     [210] - [210]eturn to [204][207][193][196][211][212][193][210]"
  5. 50 print"     [208]ress [208] or [210]."
  6. 60 a=peek(203):ifa<>41anda<>17then60
  7. 70 ifa=17thengosub60000:goto50
  8. 80 print"      [211]et printer to top of paper."
  9. 90 print"   [208]ress [211][208][193][195][197] to [208][210][201][206][212], [193] to [193][194][207][210][212]."
  10. 100 a=peek(203):ifa<>60anda<>10then100
  11. 110 ifa=10thenrun
  12. 115 open15,4,15:close15:ifst=.then120
  13. 116 print"           [208]rinter [206]ot [210]eady!"
  14. 117 fora=1to2000:next:print"[145]                                  [145][145][145]":goto100
  15. 120 open4,4,7:open3,8,3,"submission form":print#4,"          ";
  16. 130 fori=.to1:get#3,a$:i=st
  17. 133 ifa$=chr$(13)thenprint#4:print#4,"          ";:goto140
  18. 137 print#4,a$;
  19. 140 next:close3:print#4:print#4:print#4:print#4:print#4:print#4:print#4
  20. 150 close4:run
  21. 60000 print"[145]  [193]re you sure you want to quit? ([217]/[206])"
  22. 60010 a=peek(203):ifa<>25anda<>39then60010
  23. 60020 ifa=39thenprint"[145]                                      [145]":return
  24. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 60040 ifer<>63thenpoke198,.:end
  26. 60050 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  27. 60060 print"run":poke631,13:poke632,13:poke198,2:end
  28.